home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / PACIFICWAR.ARC / PACIFIC WAR (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  33.5 KB  |  1,063 lines
  1. 10 PRINT"[147]":PRINT:PRINT:PRINT:PRINT"        BATTLE FOR THE PACIFIC":PRINT:PRINT"          BY STEVE ROBINSON":FORT=1TO4400:NEXTT:W14=J1+J2+J3+J4+J5+J6+J7+J8:POKE53281,6:POKE53280,13:PRINT"[158]":PRINT"[147]":SS1=1459:AS1=1459:TT1=1459:TS2=1459:GB1=1459:GS2=1459:FT1=1459
  2. 320 AC1=55731:SC2=55731:K3=55731:FC1=55731:J1=250000:TC2=55731:GC1=55731:GC2=55731:HT=250000:N8=165000:HW=165000:K7=2
  3. 402 Q=INT(35000*RND(1))+1:IFQ<18000THENGOTO402
  4. 406 J2=Q:J1=J1-Q
  5. 408 Q=INT(33000*RND(1))+1:IFQ<18000THENGOTO408
  6. 411 J3=Q:J1=J1-Q
  7. 412 Q=INT(33000*RND(1))+1:IFQ<18000THENGOTO412
  8. 414 J4=Q:J1=J1-Q
  9. 416 Q=INT(38000*RND(1))+1:IFQ<18000THENGOTO416
  10. 420 J5=Q:J1=J1-Q
  11. 422 Q=INT(33000*RND(1))+1:IFQ<18000THENGOTO422
  12. 424 J6=Q:J1=J1-Q
  13. 426 Q=INT(40000*RND(1))+1:IFQ<18000THENGOTO426
  14. 428 J7=Q:J1=J1-Q
  15. 429 Q=INT(33000*RND(1))+1:IFQ<18000THENGOTO429
  16. 431 J8=Q:J1=J1-Q
  17. 500 GOSUB1300
  18. 502 PRINT"[147]","[158]":POKE53281,6:POKE53280,13:PRINT:PRINT:PRINT:PRINT"          MAIN MENU":PRINT:PRINT"   B[146]IG MAP":PRINT:PRINT"   L[146]AND OPERATIONS":PRINT:PRINT"   M[146]OVEMENT":PRINT:PRINT"   S[146]HIP & GAME STATUS":PRINT:PRINT"   N[146]EXT DAY":INPUTQ$:IFQ$="M"THEN5000
  19. 533 IFQ$="B"THENGOSUB1300:FORG=1TO1900:NEXTG
  20. 536 IFQ$="S"THEN6500
  21. 537 IFQ$="L"THENGOSUB1300:GOTO1650
  22. 538 IFQ$="N"THENGOTO7000
  23. 580 GOTO502
  24. 800 ::IFUI>MSTHENX=UI:GOTO830
  25. 815 IFMS>MATHENX=MS:GOTO830
  26. 816 UI=X
  27. 830 IFX<2.1THENX=1
  28. 835 IFX>15THENX=.5
  29. 840 IFX>10THENX=.6
  30. 845 IFX>5THENX=.7
  31. 850 IFX>3.5THENX=.8
  32. 860 IFX>2.11THENX=.9
  33. 870 W=INT(80*RND(1))+1:Z=W:RETURN
  34. 1300 PRINT"[158]":POKE53281,6:POKE53280,13:PRINT"[147]":PRINT" [176][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][174]":PRINT" [194]   [194]   [194]   [194]   [194]ALU[194]   [194]   [194]   [194]   [194] ":PRINT" [171][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][179] ":PRINT" [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194] ":PRINT" [171][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][179] "
  35. 1350 PRINT" [194]   [221]JAP[194]   [194]   [194]   [194]   [194]   [194]   [194]   [221] ":PRINT" [171][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][179] ":PRINT" [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194] ":PRINT" [171][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][179] ":PRINT" [194]CHI[194]   [194]   [194]WAK[194]   [194]   [194]   [194]   [194]HWI[194] "
  36. 1400 PRINT" [171][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][179] ":PRINT" [194]   [194]PI [194]   [194]   [194]MID[194]   [194]   [194]   [194]   [194] ":PRINT" [171][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][179] ":PRINT" [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194] ":PRINT" [171][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][179] "
  37. 1450 PRINT" [194]   [194]   [194]   [194]SOL[194]   [194]   [194]   [194]   [194]   [194] ":PRINT" [171][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][179] ":PRINT" [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194] ":PRINT" [171][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][219][195][195][195][179] ":PRINT" [194]   [194]   [194]BOR[194]   [194]   [194]   [194]   [194]   [194]   [194] "
  38. 1520 PRINT" [173][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][189] ":POKE1104,48:POKE1184,49:POKE1264,50:POKE1344,51:POKE1424,52:POKE1504,53:POKE1584,54:POKE1664,55:POKE1744,56:POKE1824,57:POKE1028,1:POKE1032,2:POKE1036,3:POKE1040,4:POKE1044,5:POKE1048,6:POKE1052,7:POKE1056,8:POKE1060,9:FORW=0TO400:NEXTW:POKEGB1,67:POKEGC1,7:POKEGS2,67:POKEGC2,7
  39. 1630 POKESS1,67:POKESC1,1:POKEAS1,67:POKEAC1,1:POKETT1,67:POKEK3,3:POKEFT1,67:POKEFC1,0:POKETS2,67:POKETC2,3:FORW=0TO400:NEXTW:RETURN
  40. 1650 PRINT" ENTER LETTER AND NUMBER"
  41. 1660 GETM$:IFM$<"A"ORM$>"I"THENPRINT"[166][146][157]";:FORZ=1TO3:NEXTZ:PRINT"[166][157]";:GOTO1660
  42. 1665 PRINTM$;
  43. 1670 GETC$:IFC$<"0"ORC$>"9"THENPRINT"[166][146][157]";:FORZ=1TO3:NEXTZ:PRINT"[166][157]";:GOTO1670
  44. 1680 PRINTC$;:C=VAL(C$):PRINT"[147]":IFM$="A"THEN2000
  45. 1720 IFM$="B"THEN2200
  46. 1730 IFM$="C"THEN2400
  47. 1740 IFM$="D"THEN2600
  48. 1750 IFM$="E"THEN2800
  49. 1760 IFM$="F"THEN3200
  50. 1770 IFM$="G"THEN3200
  51. 1780 IFM$="H"THEN3200
  52. 1790 IFM$="I"THEN3600
  53. 1799 GOTO500
  54. 1800 PRINT"[147]":IFGB1=1271THENGOTO1852
  55. 1802 IFGS2=1271THENGOTO1852
  56. 1804 GOSUB10000:GOTO500
  57. 1852 PRINT"[144]                JAPAN    ":PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":PRINT"        JAPANESE",J1:PRINT"":PRINT"         MARINES ",JMN:PRINT"        SUPPLIES ",JG5:PRINT"          AMMO   ",JD0:PRINT"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":GOSUB7870:INPUTQ$:IFQ$="M"THENGOTO502
  58. 1872 IFQ$="L"THENGOSUB6150:GOSUB6240
  59. 1873 IFQ$="L"THENGOTO1884
  60. 1874 IFQ$="U"THENGOSUB6150:GOSUB6240
  61. 1875 IFQ$="U"THENGOTO1884
  62. 1877 GOTO1800
  63. 1884 GETC$:IFC$<"F"ORC$>"T"THENPRINT"[166][146][157]";:FORZ=1TO3:NEXTZ:PRINT"[166][157]";:GOTO1884
  64. 1885 PRINTC$;
  65. 1886 GETY$:IFY$<"S"ORY$>"T"THENPRINT"[166][146][157]";:FORZ=1TO3:NEXTZ:PRINT"[166][157]";:GOTO1886
  66. 1891 IFC$="T"ANDY$="S"ANDTS1=1271THENGOTO1930
  67. 1894 IFC$="F"ANDY$="T"ANDFT1=1271THENGOTO1915
  68. 1895 IFC$="T"ANDY$="T"ANDTT1=1271THENGOTO1898
  69. 1896 PRINT"[147]":PRINT"     SHIP IS NOT IN PORT":FORQ=1TO900:NEXTQ:GOTO1800
  70. 1898 PRINT:PRINT"      # MARINES",TM1:INPUTE:IFQ$="U"THENGOTO1908
  71. 1902 IFE>JMNTHENGOTO1800
  72. 1903 JMN=JMN-E:TM1=TM1+E:IFTM1>20000THENTM1=20000
  73. 1906 GOTO1800
  74. 1908 IFE>TM1THENGOTO1800
  75. 1910 TM1=TM1-E:JMN=JMN+E:E=0:GOTO1800
  76. 1915 PRINT:PRINT"      # MARINES",FAA:INPUTE:IFQ$="U"THENGOTO1924
  77. 1918 IFE>JMNTHENGOTO1800
  78. 1919 JMN=JMN-E:FAA=FAA+E:IFFAA>30000THENFAA=30000
  79. 1922 GOTO1800
  80. 1924 IFE>FAATHENGOTO1800
  81. 1925 FAA=FAA-E:JMN=JMN+E:E=0:GOTO1800
  82. 1930 PRINT:PRINT"      # MARINES",MEN:INPUTE:IFQ$="U"THENGOTO1940
  83. 1933 IFE>JMNTHENGOTO1800
  84. 1935 JMN=JMN-EMEN=MEN+E:IFMEN>20000THENMEN=20000
  85. 1939 GOTO1800
  86. 1940 IFE>MENTHENGOTO2000
  87. 1941 MEN=MEN-E:JMN=JMN+E:E=0:GOTO1800
  88. 2000 PRINT"[147]":IFC=4THENGOSUB4000
  89. 2020 IFC<>4THENGOTO4100
  90. 2033 IFGB1=1427THENGOTO2049
  91. 2034 IFGS2=1427THENGOTO2049
  92. 2040 IFCHM>0THENGOTO2049
  93. 2041 GOSUB10000:GOTO500
  94. 2049 PRINT"[147]":PRINT"[144]                CHINA    ":PRINT"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":IFHH1=1427THENGOTO2058
  95. 2056 PRINT"        JAPANESE",J8,:GOTO2059
  96. 2058 PRINT"        JAPANESE",J8"SHIP IN AREA"
  97. 2059 PRINT"":PRINT"         MARINES ",CHM:PRINT"        SUPPLIES ",CS3:PRINT"          AMMO   ",CA1:PRINT"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":GOSUB7870
  98. 2070 INPUTQ$:IFQ$=""THEN2070
  99. 2071 IFQ$="M"THENGOTO502
  100. 2072 IFQ$="L"THENGOSUB6150:GOSUB6230
  101. 2073 IFQ$="L"THENGOTO2084
  102. 2074 IFQ$="U"THENGOSUB6150:GOSUB6230
  103. 2075 IFQ$="U"THENGOTO2084
  104. 2077 GOTO2000
  105. 2084 GETC$:IFC$<"F"ORC$>"T"THENPRINT"[166][146][157]";:FORZ=1TO3:NEXTZ:PRINT"[166][157]";:GOTO2084
  106. 2085 PRINTC$;
  107. 2086 GETY$:IFY$<"S"ORY$>"T"THENPRINT"[166][146][157]";:FORZ=1TO3:NEXTZ:PRINT"[166][157]";:GOTO2086
  108. 2091 IFC$="T"ANDY$="S"ANDTS1=1427THENGOTO2130
  109. 2094 IFC$="F"ANDY$="T"ANDFT1=1427THENGOTO2115
  110. 2095 IFC$="T"ANDY$="T"ANDTT1=1427THENGOTO2098
  111. 2096 PRINT"[147]":PRINT"     SHIP IS NOT IN PORT":FORQ=1TO900:NEXTQ:GOTO2000
  112. 2098 PRINT:PRINT"      # MARINES",TM1:INPUTE:IFQ$="U"THENGOTO2108
  113. 2102 IFE>CHMTHENGOTO2000
  114. 2103 CHM=CHM-E:TM1=TM1+E:IFTM1>20000THENTM1=20000
  115. 2106 GOTO2000
  116. 2108 IFE>TM1THENGOTO2000
  117. 2110 TM1=TM1-E:CHM=CHM+E:GOTO2000
  118. 2115 PRINT:PRINT"      # MARINES",FAA:INPUTE:IFQ$="U"THENGOTO2124
  119. 2118 IFE>CHMTHENGOTO2000
  120. 2119 CHM=CHM-E:FAA=FAA+E:IFFAA>30000THENFAA=30000
  121. 2122 GOTO2000
  122. 2124 IFE>FAATHENGOTO2000
  123. 2125 FAA=FAA-E:CHM=CHM+E:GOTO2000
  124. 2130 PRINT:PRINT"      # MARINES",MEN:INPUTE:IFQ$="U"THENGOTO2140
  125. 2133 IFE>CHMTHENGOTO2000
  126. 2135 CHM=CHM-E:MEN=MEN+E:IFMEN>20000THENMEN=20000
  127. 2139 GOTO2000
  128. 2140 IFE>MENTHENGOTO2000
  129. 2141 MEN=MEN-E:CHM=CHM+E:E=0:GOTO2000
  130. 2200 PRINT"[147]":IFC=2THENGOSUB4050:GOTO1800
  131. 2214 IFC=5THENGOSUB4002
  132. 2220 IFC<>2ANDC<>5THENGOTO4100
  133. 2233 IFGB1=1511THENGOTO2249
  134. 2234 IFGS2=1511THENGOTO2249
  135. 2240 IFPM1>0THENGOTO2249
  136. 2241 GOSUB10000:GOTO500
  137. 2249 PRINT"[147]":PRINT"[144]          PHILIPPINE ISLANDS":PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":IFHH1=1511THENGOTO2258
  138. 2255 PRINT"        JAPANESE",J7:GOTO2259
  139. 2258 PRINT"        JAPANESE",J7"SHIP IN AREA"
  140. 2259 PRINT"":PRINT"         MARINES ",PM1:PRINT"        SUPPLIES ",PS4:PRINT"          AMMO   ",PI2:PRINT"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":GOSUB7870
  141. 2270 GETQ$:IFQ$=""THEN2270
  142. 2271 IFQ$="M"THENGOTO502
  143. 2272 IFQ$="L"THENGOSUB6150:GOSUB6220
  144. 2273 IFQ$="L"THENGOTO2284
  145. 2274 IFQ$="U"THENGOSUB6150:GOSUB6220
  146. 2275 IFQ$="U"THENGOTO2284
  147. 2277 GOTO2200
  148. 2284 GETC$:IFC$<"F"ORC$>"T"THENPRINT"[166][146][157]";:FORZ=1TO3:NEXTZ:PRINT"[166][157]";:GOTO2284
  149. 2285 PRINTC$;
  150. 2286 GETY$:IFY$<"S"ORY$>"T"THENPRINT"[166][146][157]";:FORZ=1TO3:NEXTZ:PRINT"[166][157]";:GOTO2286
  151. 2291 IFC$="T"ANDY$="S"ANDTS1=1511THENGOTO2330
  152. 2294 IFC$="F"ANDY$="T"ANDFT1=1511THENGOTO2315
  153. 2295 IFC$="T"ANDY$="T"ANDTT1=1511THENGOTO2298
  154. 2296 PRINT"[147]":PRINT"     SHIP IS NOT IN PORT":FORQ=1TO900:NEXTQ:GOTO2200
  155. 2298 PRINT:PRINT"      # MARINES",TM1:INPUTE:IFQ$="U"THENGOTO2308
  156. 2302 IFE>PM1THENGOTO2200
  157. 2303 PM1=PM1-E:TM1=TM1+E:IFTM1>20000THENTM1=20000
  158. 2306 GOTO2200
  159. 2308 IFE>TM1THENGOTO2200
  160. 2310 TM1=TM1-E:PM1=PM1+E:E=0:GOTO2200
  161. 2315 PRINT:PRINT"      # MARINES",FAA:INPUTE:IFQ$="U"THENGOTO2324
  162. 2318 IFE>PM1THENGOTO2200
  163. 2319 PM1=PM1-E:FAA=FAA+E:IFFAA>30000THENFAA=30000
  164. 2322 GOTO2200
  165. 2324 IFE>FAATHENGOTO2200
  166. 2325 FAA=FAA-E:PM1=PM1+E:GOTO2200
  167. 2330 PRINT:PRINT"      # MARINES",MEN:INPUTE:IFQ$="U"THENGOTO2340
  168. 2333 IFE>PM1THENGOTO2200
  169. 2335 PM1=PM1-E:MEN=MEN+E:IFMEN>20000THENMEN=20000
  170. 2339 GOTO2200
  171. 2340 IFE>MENTHENGOTO2200
  172. 2341 MEN=MEN-E:PM1=PM1+E:GOTO2200
  173. 2400 PRINT"[147]":IFC=9THENGOSUB4000
  174. 2420 IFC<>9THENGOTO4100
  175. 2433 IFGB1=1835THENGOTO2449
  176. 2434 IFGS2=1835THENGOTO2449
  177. 2440 IFBM2>0THENGOTO2449
  178. 2441 GOSUB10000:GOTO500
  179. 2449 PRINT"[147]":PRINT"[144]             BORNEO       ":PRINT"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":IFHH1=1835THENGOTO2458
  180. 2456 PRINT"        JAPANESE",J6:GOTO2459
  181. 2458 PRINT"        JAPANESE",J6"SHIP IN AREA"
  182. 2459 PRINT"":PRINT"         MARINES ",BM2:PRINT"        SUPPLIES ",BS6:PRINT"          AMMO   ",B02:PRINT"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":GOSUB7870
  183. 2470 GETQ$:IFQ$=""THEN2470
  184. 2471 IFQ$="M"THENGOTO502
  185. 2472 IFQ$="L"THENGOSUB6150:GOSUB6210
  186. 2473 IFQ$="L"THENGOTO2484
  187. 2474 IFQ$="U"THENGOSUB6150:GOSUB6210
  188. 2475 IFQ$="U"THENGOTO2484
  189. 2477 GOTO2400
  190. 2484 GETC$:IFC$<"F"ORC$>"T"THENPRINT"[166][146][157]";:FORZ=1TO3:NEXTZ:PRINT"[166][157]";:GOTO2484
  191. 2485 PRINTC$;
  192. 2486 GETY$:IFY$<"S"ORY$>"T"THENPRINT"[166][146][157]";:FORZ=1TO3:NEXTZ:PRINT"[166][157]";:GOTO2486
  193. 2491 IFC$="T"ANDY$="S"ANDTS1=1835THENGOTO2530
  194. 2494 IFC$="F"ANDY$="T"ANDFT1=1835THENGOTO2515
  195. 2495 IFC$="T"ANDY$="T"ANDTT1=1835THENGOTO2498
  196. 2496 PRINT"[147]":PRINT"     SHIP IS NOT IN PORT":FORQ=1TO900:NEXTQ:GOTO2400
  197. 2498 PRINT:PRINT"      # MARINES",TM1:INPUTE:IFQ$="U"THENGOTO2508
  198. 2502 IFE>BM2THENGOTO2400
  199. 2503 BM2=BM2-E:TM1=TM1+E:IFTM1>20000THENTM1=20000
  200. 2506 GOTO2400
  201. 2508 IFE>TM1THENGOTO2400
  202. 2510 TM1=TM1-E:BM2=BM2+E:GOTO2400
  203. 2515 PRINT:PRINT"      # MARINES",FAA:INPUTE:IFQ$="U"THENGOTO2524
  204. 2518 IFE>BM2THENGOTO2400
  205. 2519 BM2=BM2-E:FAA=FAA+E:IFFAA>30000THENFAA=30000
  206. 2522 GOTO2400
  207. 2524 IFE>FAATHENGOTO2400
  208. 2525 FAA=FAA-E:BM2=BM2+E:GOTO2400
  209. 2530 PRINT:PRINT"      # MARINES",MEN:INPUTE:IFQ$="U"THENGOTO2540
  210. 2533 IFE>BM2THENGOTO2400
  211. 2535 BM2=BM2-E:MEN=MEN+E:IFMEN>20000THENMEN=20000
  212. 2539 GOTO2400
  213. 2540 IFE>MENTHENGOTO2400
  214. 2541 MEN=MEN-E:BM2=BM2+E:GOTO2400
  215. 2600 IFC=4THENGOSUB4000
  216. 2614 IFC=7THENGOSUB4000
  217. 2620 IFC<>4ANDC<>7THENGOTO4100
  218. 2631 IFC=4THENGOTO2633
  219. 2632 IFC=7THENGOTO4200
  220. 2633 IFGB1=1439THENGOTO2649
  221. 2634 IFGS2=1439THENGOTO2649
  222. 2640 IFWMN>0THENGOTO2649
  223. 2641 GOSUB10000:GOTO500
  224. 2649 PRINT"[147]":PRINT"[144]            WAKE   ISLAND ":PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":IFHH1=1439THENGOTO2658
  225. 2656 PRINT"        JAPANESE",J4:GOTO2659
  226. 2658 PRINT"        JAPANESE",J4"SHIP IN AREA"
  227. 2659 PRINT"":PRINT"         MARINES ",WMN:PRINT"        SUPPLIES ",WS1:PRINT"          AMMO   ",WAM:PRINT"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":GOSUB7870
  228. 2670 GETQ$:IFQ$=""THEN2670
  229. 2671 IFQ$="M"THENGOTO502
  230. 2672 IFQ$="L"THENGOSUB6150:GOSUB6195
  231. 2673 IFQ$="L"THENGOTO2677
  232. 2674 IFQ$="U"THENGOSUB6150:GOSUB6195
  233. 2675 IFQ$="U"THENGOTO2677
  234. 2676 GOTO2600
  235. 2677 PRINT" ENTER LETTER AND NUMBER"
  236. 2684 GETC$:IFC$<"F"ORC$>"T"THENPRINT"[166][146][157]";:FORZ=1TO3:NEXTZ:PRINT"[166][157]";:GOTO2684
  237. 2685 PRINTC$;
  238. 2686 GETY$:IFY$<"S"ORY$>"T"THENPRINT"[166][146][157]";:FORZ=1TO3:NEXTZ:PRINT"[166][157]";:GOTO2686
  239. 2691 IFC$="T"ANDY$="S"ANDTS1=1439THENGOTO2730
  240. 2694 IFC$="F"ANDY$="T"ANDFT1=1439THENGOTO2715
  241. 2695 IFC$="T"ANDY$="T"ANDTT1=1439THENGOTO2698
  242. 2696 PRINT"[147]":PRINT"     SHIP IS NOT IN PORT":FORQ=1TO900:NEXTQ:GOTO2600
  243. 2698 PRINT:PRINT"      # MARINES",TM1:INPUTE:IFQ$="U"THENGOTO2708
  244. 2702 IFE>WMNTHENGOTO2600
  245. 2703 WMN=WMN-E:TM1=TM1+E:IFTM1>20000THENTM1=20000
  246. 2706 GOTO2600
  247. 2708 IFE>TM1THENGOTO2600
  248. 2710 TM1=TM1-E:WMN=WMN+E:GOTO2600
  249. 2715 PRINT:PRINT"      # MARINES",FAA:INPUTE:IFQ$="U"THENGOTO2724
  250. 2718 IFE>WMNTHENGOTO2600
  251. 2719 WMN=WMN-E:FAA=FAA+E:IFFAA>30000THENFAA=30000
  252. 2722 GOTO2600
  253. 2724 IFE>FAATHENGOTO2600
  254. 2725 FAA=FAA-E:WMN=WMN+E:GOTO2600
  255. 2730 PRINT:PRINT"      # MARINES",MEN:INPUTE:IFQ$="U"THENGOTO2740
  256. 2733 IFE>WMNTHENGOTO2600
  257. 2735 WMN=WMN-E:MEN=MEN+E:IFMEN>20000THENMEN=20000
  258. 2739 GOTO2600
  259. 2740 IFE>MENTHENGOTO2600
  260. 2741 MEN=MEN-E:WMN=WMN+E:GOTO2600
  261. 2800 PRINT"[147]":IFC=0THENGOSUB4000
  262. 2814 IFC=5THENGOSUB4000
  263. 2820 IFC<>0ANDC<>5THENGOTO4100
  264. 2831 IFC=0THENGOTO2833
  265. 2832 IFC=5THENGOTO2946
  266. 2833 IFGB1=1123THENGOTO2849
  267. 2834 IFGS2=1123THENGOTO2849
  268. 2840 IFAAO>0THENGOTO2849
  269. 2841 PRINT:PRINT:GOSUB10000:GOTO500
  270. 2847 FORW=1TO800:NEXTW:GOTO500
  271. 2849 PRINT"[147]":PRINT"[144]         THE ALEUTIAN ISLANDS":PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":IFHH1=1123THENGOTO2858
  272. 2856 PRINT"        JAPANESE",J2:GOTO2859
  273. 2858 PRINT"        JAPANESE",J2"SHIP IN AREA"
  274. 2859 PRINT"":PRINT"         MARINES ",AAM:PRINT"        SUPPLIES ",APS:PRINT"          AMMO   ",AMO:PRINT"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":GOSUB7870
  275. 2870 GETQ$:IFQ$=""THEN2870
  276. 2871 IFQ$="M"THENGOTO502
  277. 2872 IFQ$="L"THENGOSUB6150:GOSUB6167
  278. 2873 IFQ$="L"THENGOTO2877
  279. 2874 IFQ$="U"THENGOSUB6150:GOSUB6167
  280. 2875 IFQ$="U"THENGOTO2877
  281. 2876 GOTO500
  282. 2877 PRINT" ENTER LETTER AND NUMBER"
  283. 2884 GETC$:IFC$<"F"ORC$>"T"THENPRINT"[166][146][157]";:FORZ=1TO3:NEXTZ:PRINT"[166][157]";:GOTO2884
  284. 2885 PRINTC$;
  285. 2886 GETY$:IFY$<"S"ORY$>"T"THENPRINT"[166][146][157]";:FORZ=1TO3:NEXTZ:PRINT"[166][157]";:GOTO2886
  286. 2891 IFC$="T"ANDY$="S"ANDTS1=1123THENGOTO2930
  287. 2892 IFC$="F"ANDY$="T"ANDFT1=1123THENGOTO2915
  288. 2893 IFC$="T"ANDY$="T"ANDTT1=1123THENGOTO2897
  289. 2894 PRINT"[147]":PRINT"     SHIP IS NOT IN PORT":FORQ=1TO900:NEXTQ:GOTO2849
  290. 2897 PRINT:PRINT"      # MARINES",TM1:IFQ$="U"THENGOTO2907
  291. 2899 INPUTE:AAM=AAM-E:TM1=TM1+E:IFTM1>20000THENTM1=20000
  292. 2906 GOTO2800
  293. 2907 INPUTE:IFE>TM1THENGOTO2800
  294. 2909 TM1=TM1-E:AAM=AAM+E:GOTO2800
  295. 2915 PRINT:PRINT"      # MARINES",FAA:INPUTE:IFQ$="U"THENGOTO2924
  296. 2918 IFE>AAMTHENGOTO2800
  297. 2919 AAM=AAM-E:FAA=FAA+E:IFFAA>30000THENFAA=30000
  298. 2922 GOTO2800
  299. 2924 IFE>FAATHENGOTO2800
  300. 2925 FAA=FAA-E:AAM=AAM+E:GOTO2800
  301. 2930 PRINT:PRINT"      # MARINES",MEN:INPUTE:IFQ$="U"THENGOTO2940
  302. 2933 IFE>AAMTHENGOTO2800
  303. 2934 AAM=AAM-E:MEN=MEN+E:IFMEN>20000THENMEN=20000
  304. 2937 GOTO2800
  305. 2940 IFE>MENTHENGOTO2800
  306. 2942 MEN=MEN-E:AAM=AAM+E:GOTO2800
  307. 2946 IFGB1=1523THENGOTO2957
  308. 2947 IFGS2=1523THENGOTO2957
  309. 2952 IFMIM>0THENGOTO2957
  310. 2954 GOSUB10000:GOTO500
  311. 2957 PRINT"[147]":PRINT"[144]             MIDWAY   ISLAND":PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":IFHH1=1523THENGOTO2964
  312. 2961 PRINT"        JAPANESE",J3:GOTO2965
  313. 2964 PRINT"        JAPANESE",J3"SHIP IN AREA"
  314. 2965 PRINT"":PRINT"         MARINES ",MI1:PRINT"         SUPPLIES",ZS3:PRINT"          AMMO   ",A11:PRINT"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":GOSUB7870
  315. 2971 GETQ$:IFQ$=""THEN2971
  316. 2972 IFQ$="M"THENGOTO502
  317. 2973 IFQ$="L"THENGOSUB6150:GOSUB6190
  318. 2974 IFQ$="L"THENGOTO2979
  319. 2975 IFQ$="U"THENGOSUB6150:GOSUB6190
  320. 2976 IFQ$="U"THENGOTO2979
  321. 2977 GOTO2957
  322. 2979 PRINT" ENTER LETTER AND NUMBER"
  323. 2980 GETC$:IFC$<"F"ORC$>"T"THENPRINT"[166][146][157]";:FORZ=1TO3:NEXTZ:PRINT"[166][157]";:GOTO2980
  324. 2981 PRINTC$;
  325. 2982 GETY$:IFY$<"S"ORY$>"T"THENPRINT"[166][146][157]";:FORZ=1TO3:NEXTZ:PRINT"[166][157]";:GOTO2982
  326. 2983 IFC$="T"ANDY$="S"ANDTS1=1523THENGOTO3020
  327. 2984 IFC$="F"ANDY$="T"ANDFT1=1523THENGOTO3005
  328. 2985 IFC$="T"ANDY$="T"ANDTT1=1523THENGOTO2988
  329. 2986 PRINT"[147]":PRINT"     SHIP IS NOT IN PORT":FORQ=1TO900:NEXTQ:GOTO2957
  330. 2988 PRINT:PRINT"      # MARINES",TM1:INPUTE:IFQ$="U"THENGOTO2998
  331. 2991 IFE>MI1THENGOTO2957
  332. 2992 MI1=MI1-E:TM1=TM1+E:IFTM1>20000THENTM1=20000
  333. 2995 GOTO2957
  334. 2998 IFE>TM1THENGOTO2957
  335. 2999 TM1=TM1-E:MI1=MI1+E:GOTO2957
  336. 3005 PRINT:PRINT"      # MARINES",FAA:INPUTE:IFQ$="U"THENGOTO3014
  337. 3008 IFE>MI1THENGOTO2957
  338. 3009 MI1=MI1-E:FAA=FAA+E:IFFAA>30000THENFAA=30000
  339. 3012 GOTO2957
  340. 3014 IFE>FAATHENGOTO2957
  341. 3015 FAA=FAA-E:MI1=MI1+E:GOTO2957
  342. 3020 PRINT:PRINT"      # MARINES",MEN:INPUTE:IFQ$="U"THENGOTO3030
  343. 3023 IFE>MI1THENGOTO2957
  344. 3025 MI1=MI1-E:MEN=MEN+E:IFMEN>20000THENMEN=20000
  345. 3029 GOTO2957
  346. 3030 IFE>MENTHENGOTO2957
  347. 3037 MEN=MEN-E:MI1=MI1+E:GOTO2957
  348. 3050 IFC$<>"C"THENGOTO4100
  349. 3200 GOTO4100
  350. 3600 ::IFC=4THENGOSUB4000
  351. 3620 IFC<>4THENGOTO4100
  352. 3621 IFFT1=1459THENV2=8
  353. 3622 IFGB1=1459THENKK1=6
  354. 3623 IFGS2=1459THENII6=6
  355. 3624 IFSS1=1459THENFH7=5
  356. 3625 IFAS1=1459THENNL9=5
  357. 3626 IFTT1=1459THENRR0=4
  358. 3627 IFTS2=1459THENUU4=4
  359. 3630 PRINT"                  HAWAII":PRINT:PRINT"    MEN     ";HT:PRINT:PRINT"    AMMO    ";HW:PRINT:PRINT"    SUPPLIES";N8:PRINT"[198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]":GOSUB7870:PRINT
  360. 3790 GETQ$:IFQ$=""THEN3790
  361. 3810 IFQ$="L"THENGOSUB6000
  362. 3815 IFQ$="M"THENGOTO502
  363. 3816 IFQ$="U"THENPRINT"      YOU CANNOT UNLOAD HERE":FORT=1TO600:NEXTT
  364. 3830 PRINT"[147]":GOTO3600
  365. 4000 :
  366. 4002 POKE53281,5:RETURN
  367. 4050 ::POKE53281,10:RETURN
  368. 4100 ::POKE53281,6:PRINT:PRINT:PRINT:PRINT"                SEA":FORZ=1TO600:NEXTZ:GOTO500
  369. 4200 PRINT"[147]":IFGB1=1679THENGOTO4249
  370. 4234 IFGS2=1679THENGOTO4249
  371. 4240 IFSMN>0THENGOTO4249
  372. 4241 GOSUB10000:GOTO500
  373. 4249 PRINT"[147]":PRINT"[144]          SOLOMAN  ISLANDS":PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":IFHH1=1679THENGOTO4258
  374. 4256 PRINT"        JAPANESE",J5:GOTO4259
  375. 4258 PRINT"        JAPANESE",J5"SHIP IN AREA"
  376. 4259 PRINT"":PRINT"         MARINES ",SMN:PRINT"        SUPPLIES ",P13:PRINT"          AMMO   ",SOA:PRINT"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":GOSUB7870
  377. 4270 GETQ$:IFQ$=""THEN4270
  378. 4271 IFQ$="M"THENGOTO500
  379. 4272 IFQ$="L"THENGOSUB6150:GOSUB6200
  380. 4273 IFQ$="L"THENGOTO4284
  381. 4274 IFQ$="U"THENGOSUB6150:GOSUB6200
  382. 4275 IFQ$="U"THENGOTO4284
  383. 4276 GOTO4249
  384. 4284 GETC$:IFC$<"F"ORC$>"T"THENPRINT"[166][146][157]";:FORZ=1TO3:NEXTZ:PRINT"[166][157]";:GOTO4284
  385. 4285 PRINTC$;
  386. 4286 GETY$:IFY$<"S"ORY$>"T"THENPRINT"[166][146][157]";:FORZ=1TO3:NEXTZ:PRINT"[166][157]";:GOTO4286
  387. 4291 IFC$="T"ANDY$="S"ANDTS1=1679THENGOTO4330
  388. 4294 IFC$="F"ANDY$="T"ANDFT1=1679THENGOTO4315
  389. 4295 IFC$="T"ANDY$="T"ANDTT1=1679THENGOTO4298
  390. 4296 PRINT"[147]":PRINT"     SHIP IS NOT IN PORT":FORQ=1TO900:NEXTQ:GOTO4200
  391. 4298 PRINT:PRINT"      # MARINES",TM1:INPUTE:IFQ$="U"THENGOTO4308
  392. 4302 IFE>SMNTHENGOTO4200
  393. 4303 SMN=SMN-E:TM1+TM1+E:IFTM1>20000THENTM1=20000
  394. 4306 GOTO4200
  395. 4308 IFE>TM1THENGOTO4200
  396. 4310 TM1=TM1-E:SMN=SMN+E:GOTO4200
  397. 4315 PRINT:PRINT"      # MARINES",FAA:INPUTE:IFQ$="U"THENGOTO4324
  398. 4318 IFE>SMNTHENGOTO4200
  399. 4319 SMN=SMN-E:FAA=FAA+E:IFFAA>30000THENFAA=30000
  400. 4322 GOTO4200
  401. 4324 IFE>FAATHENGOTO4200
  402. 4325 FAA=FAA-E:SMN=SMN+E:GOTO4200
  403. 4330 PRINT:PRINT"      # MARINES",MEN:INPUTE:IFQ$="U"THENGOTO4340
  404. 4333 IFE>SMNTHENGOTO4200
  405. 4335 SMN=SMN-E:MEN=MEN+E:IFMEN>20000THENMEN=20000
  406. 4339 GOTO4200
  407. 4340 IFE>MENTHENGOTO4200
  408. 4341 MEN=MEN-E:SMN=SMN+E:GOTO4200
  409. 5000 PRINT"[147]":PRINT:PRINT:PRINT"              WHICH SHIP":PRINT:PRINT"         ENTER IDENTIFICATION":PRINT:PRINT"[158]":PRINT"GB1  GUNBOAT 1":PRINT"GS2  GUNBOAT 2     ":PRINT"[159]":PRINT"TT1  TROOP[160]TRANS.1  ":PRINT"TS2  TROOP[160]TRANS.2 ":PRINT"":PRINT"SS1  SUPPLY SHIP 1  ":PRINT"AS1  AMMO   SHIP 2  ":PRINT"[144]"
  410. 5038 PRINT"FT1   CARRIER       ":PRINT"[150]":PRINT" M   FOR MENU       ":INPUTQ$:IFQ$="GB1"ANDKK1=0THENGOTO6800
  411. 5044 IFQ$="GS2"ANDII6=0THENGOTO6800
  412. 5046 IFQ$="SS1"ANDFH7=0THENGOTO6800
  413. 5048 IFQ$="AS1"ANDNL9=0THENGOTO6800
  414. 5049 IFQ$="TT1"ANDRR0=0THENGOTO6800
  415. 5050 IFQ$="TS2"ANDUU4=0THENGOTO6800
  416. 5051 IFQ$="FT1"ANDV2=0THENGOTO6800
  417. 5052 IFQ$="M"THENGOTO500
  418. 5056 IFQ$="GB1"ANDG1=4THENPRINT:PRINTQ$"HAS MOVED ":FORT=1TO700:NEXTT:GOTO5000
  419. 5058 IFQ$="GB1"ANDG1=<3THENPRINT:PRINT"  IN WHICH DIRECTION":GOTO5400
  420. 5060 KV5=N8+SN1+APS+ZS3+WS1+P13+BS6+PS4+C:IFQ$="GS2"ANDG2=<3THENPRINT:PRINT"  IN WHICH DIRECTION":GOTO5400
  421. 5080 IFQ$="SS1"ANDS1=5THENPRINT:PRINTQ$" HAS MOVED":FORT=1TO700:NEXTT:GOTO5000
  422. 5090 IFQ$="SS1"ANDS1=<4THENPRINT:PRINT"  IN WHICH DIRECTION":GOTO5400
  423. 5100 IFQ$="AS1"ANDA9=5THENPRINT:PRINTQ$" HAS MOVED":FORT=1TO700:NEXTT:GOTO5000
  424. 5110 IFQ$="AS1"ANDA9=<4THENPRINT:PRINT"  IN WHICH DIRECTION":GOTO5400
  425. 5120 IFQ$="TT1"ANDT1=3THENPRINT:PRINTQ$" HAS MOVED":FORT=1TO700:NEXTT:GOTO5000
  426. 5130 IFQ$="TT1"ANDT1=<2THENPRINT:PRINT"  IN WHICH DIRECTION":GOTO5400
  427. 5133 IFQ$="FT1"ANDF1=6THENPRINT:PRINTQ$" HAS MOVED":FORT=1TO700:NEXTT:GOTO5000
  428. 5135 IFQ$="FT1"ANDF1=<5THENPRINT:PRINT"  IN WHICH DIRECTION":GOTO5400
  429. 5150 IFQ$="TS2"ANDT2=3THENPRINT:PRINTQ$" HAS MOVED":FORT=1TO700:NEXTT:GOTO5000
  430. 5160 IFQ$="TS2"ANDT2=<2THENPRINT:PRINT"  IN WHICH DIRECTION":GOTO5400
  431. 5190 GOTO500
  432. 5400 PRINT:PRINT:PRINT"             U - UP ":PRINT"             R - RIGHT":PRINT"             D - DOWN ":PRINT"             L - LEFT "
  433. 5430 GETT$:IFQ$="GB1"ANDT$="U"THEN8000
  434. 5441 IFQ$="FT1"ANDT$="U"THEN8031
  435. 5450 IFQ$="GS2"ANDT$="U"THEN8040
  436. 5460 IFQ$="SS1"ANDT$="U"THEN8080
  437. 5465 IFQ$="AS1"ANDT$="U"THEN8120
  438. 5470 IFQ$="TT1"ANDT$="U"THEN8160
  439. 5480 IFQ$="TS2"ANDT$="U"THEN8200
  440. 5540 IFQ$="GB1"ANDT$="R"THEN8300
  441. 5541 IFQ$="FT1"ANDT$="R"THEN8325
  442. 5550 IFQ$="GS2"ANDT$="R"THEN8340
  443. 5560 IFQ$="SS1"ANDT$="R"THEN8380
  444. 5565 IFQ$="AS1"ANDT$="R"THEN8420
  445. 5570 IFQ$="TT1"ANDT$="R"THEN8460
  446. 5580 IFQ$="TS2"ANDT$="R"THEN8500
  447. 5740 IFQ$="GB1"ANDT$="D"THEN8600
  448. 5741 IFQ$="FT1"ANDT$="D"THEN8631
  449. 5750 IFQ$="GS2"ANDT$="D"THEN8640
  450. 5760 IFQ$="SS1"ANDT$="D"THEN8680
  451. 5765 IFQ$="AS1"ANDT$="D"THEN8720
  452. 5770 IFQ$="TT1"ANDT$="D"THEN8760
  453. 5780 IFQ$="TS2"ANDT$="D"THEN8800
  454. 5820 IFQ$="GB1"ANDT$="L"THEN8900
  455. 5821 IFQ$="FT1"ANDT$="L"THEN8927
  456. 5830 IFQ$="GS2"ANDT$="L"THEN8940
  457. 5840 IFQ$="SS1"ANDT$="L"THEN8980
  458. 5850 IFQ$="AS1"ANDT$="L"THEN9020
  459. 5860 IFQ$="TT1"ANDT$="L"THEN9060
  460. 5880 IFQ$="TS2"ANDT$="L"THEN9100
  461. 5950 GOTO5430
  462. 6000 GETM$:IFM$<"A"ORM$>"T"THENPRINT"[166][146][157]";:FORZ=1TO3:NEXTZ:PRINT"[166][157]";:GOTO6000
  463. 6015 PRINTM$;
  464. 6020 GETC$:IFC$<"S"ORC$>"T"THENPRINT"[166][146][157]";:FORZ=1TO3:NEXTZ:PRINT"[166][157]";:GOTO6020
  465. 6030 PRINT"[147]":IFM$="S"ANDC$="S"THENGOTO6080
  466. 6032 IFM$="T"ANDC$="T"THENGOTO6050
  467. 6033 IFM$="A"ANDC$="S"THENGOTO6090
  468. 6034 IFM$="T"ANDC$="S"THENGOTO6037
  469. 6035 IFM$="F"ANDC$="T"THENGOTO6100
  470. 6036 RETURN
  471. 6037 IFTS2<>1459THENRETURN
  472. 6038 PRINT:PRINT:PRINT"         MARINES IN PORT";HT:INPUTE:IFE>HTTHENRETURN
  473. 6041 MEN=MEN+E:IFMEN>20000THENMEN=20000
  474. 6045 HT=HT-E:PRINT"[147]":RETURN
  475. 6050 IFTT1<>1459THENRETURN
  476. 6052 PRINT:PRINT:PRINT"         MARINES IN PORT";HT:INPUTE:TM1=TM1+E:IFTM1>20000THENTM1=20000
  477. 6058 HT=HT-E:PRINT"[147]":RETURN
  478. 6080 IFSS1<>1459THENRETURN
  479. 6081 PRINT" SUPPLIES",N8:INPUTE:IFE>N8THENRETURN
  480. 6085 SN1=SN1+E:IFSN1>30000THENSN1=30000
  481. 6087 N8=N8-E:RETURN
  482. 6090 IFAS1<>1459THENRETURN
  483. 6091 PRINT" AMMO",HW:INPUTE:IFE>HWTHENRETURN
  484. 6095 IFSA1>20000THENSA1=20000
  485. 6096 SA1=SA1+E:HW=HW-E:RETURN:HW=HW-E
  486. 6100 PRINT"[147]":IFFT1<>1459THENRETURN
  487. 6112 PRINT:PRINT:PRINT"         MARINES IN PORT";HT:INPUTE:IFE>HTTHENRETURN
  488. 6118 FAA=FAA+E:IFFAA>30000THENFAA=30000
  489. 6125 HT=HT-E:PRINT"[147]":RETURN
  490. 6150 PRINT"[147]":PRINT:PRINT:PRINT:PRINT"       WHAT DO YOU WANT TO LOAD?":PRINT:PRINT:PRINT"           M-MEN":PRINT:PRINT"           S-SUPPLIES":PRINT:PRINT"           A-AMMO   "
  491. 6165 GETM$:IFM$=""THEN6165
  492. 6166 RETURN
  493. 6167 IFM$="M"THENGOTO9200
  494. 6169 IFM$="A"THENGOTO9250
  495. 6170 IFM$="S"THENGOTO9350
  496. 6180 GOTO2800
  497. 6190 IFM$="M"THENGOTO9200
  498. 6191 IFM$="A"THENGOTO9270
  499. 6192 IFM$="S"THENGOTO9370
  500. 6194 GOTO2800
  501. 6195 IFM$="M"THENGOTO9200
  502. 6196 IFM$="A"THENGOTO9290
  503. 6197 IFM$="S"THENGOTO9390
  504. 6198 GOTO2600
  505. 6200 IFM$="M"THENGOTO9200
  506. 6202 IFM$="A"THENGOTO9308
  507. 6204 IFM$="S"THENGOTO9410
  508. 6206 GOTO4200
  509. 6210 IFM$="M"THENGOTO9200
  510. 6212 IFM$="A"THENGOTO9328
  511. 6214 IFM$="S"THENGOTO9430
  512. 6216 GOTO2400
  513. 6220 IFM$="M"THENGOTO9200
  514. 6222 IFM$="A"THENGOTO9628
  515. 6224 IFM$="S"THENGOTO9450
  516. 6226 GOTO2200
  517. 6230 IFM$="M"THENGOTO9200
  518. 6232 IFM$="A"THENGOTO9648
  519. 6234 IFM$="S"THENGOTO9470
  520. 6236 GOTO2000
  521. 6240 IFM$="M"THENGOTO9200
  522. 6242 IFM$="A"THENGOTO9748
  523. 6243 IFM$="S"THENGOTO9570
  524. 6244 GOTO1800
  525. 6500 PRINT"[147]":PRINT"[158]":PRINT"     SHIP      AREA  STRENGTH CARGO  ":PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  526. 6516 READYB1,Y$:IFGB1=YB1THENRESTORE:GOTO6520
  527. 6518 GOTO6516
  528. 6519 PRINT
  529. 6520 PRINT"[158]GB1 GUNBOAT 1   ";Y$"      "KK1"    N/A":PRINT
  530. 6524 READYB1,Y$:IFGS2=YB1THENRESTORE:GOTO6530
  531. 6526 GOTO6524
  532. 6530 PRINT"GS2 GUNBOAT 2   ";Y$"      "II6"    N/A":PRINT
  533. 6532 READYB1,Y$:IFTT1=YB1THENRESTORE:GOTO6535
  534. 6534 GOTO6532
  535. 6535 PRINT"[154]TT1 TROOP[160]SH.1  ";Y$"      "RR0,TM1:PRINT
  536. 6537 READYB1,Y$:IFTS2=YB1THENRESTORE:GOTO6540
  537. 6539 GOTO6537
  538. 6540 PRINT"TS1 TROOP[160]SH.2  ";Y$"      "UU4,MEN:PRINT
  539. 6542 READYB1,Y$:IFSS1=YB1THENRESTORE:GOTO6545
  540. 6544 GOTO6542
  541. 6545 PRINT"SS1 SUPPLY 1    ";Y$"      "FH7,SN1:PRINT
  542. 6547 READYB1,Y$:IFAS1=YB1THENRESTORE:GOTO6550
  543. 6549 GOTO6547
  544. 6550 PRINT"AS1 AMMO        ";Y$"      "NL9,SA2:PRINT
  545. 6552 READYB1,Y$:IFFT1=YB1THENRESTORE:GOTO6555
  546. 6554 GOTO6552
  547. 6555 PRINT"[144]FT1 CARRIER     ";Y$"      "V2,FAA:PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]":YE8=AAM+MI1+WMN+SMN+BM2+PM1+CHM+JMN+HT+FAA+MEN+TM1:W14=J1+J2+J3+J4+J5+J6+J7+J8:PRINT"[160][160][160]MARINES"YE8"[150]  JAPANESE"W14:BZ9=AMO+AII+WAM+SOA+B02+PI2+CA1+JD0+HW+SA2
  548. 6561 KC9=N8+SN1+APS+WSI+P13+BS6+PS4+CS3+JG5+ZS3:PRINT:PRINT"  [160]SUPPLIES LEFT  ",KC9:PRINT"[160][160][160]AMMO    LEFT  ",BZ9
  549. 6564 GETW$:IFW$=""THENGOTO6564
  550. 6566 GOTO500
  551. 6570 DATA1139,I0,1219,I1,1299,I2,1379,I3,1459,I4,1539,I5,1619,I6,1699,I7:DATA1779,I8,1859,I9,1135,H0,1215,H1,1295,H2,1375,H3,1455,H4,1535,H5:DATA1615,H6,1695,H7,1775,H8,1855,H9,1131,G0,1211,G1,1291,G2,1371,G3
  552. 6576 DATA1451,G4,1531,G5,1611,G6,1691,G7,1771,G8,1851,G9,1123,E0,1203,E1:DATA1283,E2,1363,E3,1443,E4,1523,E5,1603,E6,1683,E7,1763,E8,1843,E9:DATA1119,D0,1199,D1,1279,D2,1359,D3,1439,D4,1519,D5,1599,D6,1679,D7
  553. 6582 DATA1759,D8,1839,D9,1115,C0,1195,C1,1275,C2,1355,C3,1435,C4,1515,C5:DATA1595,C6,1675,C7,1755,C8,1835,C9,1111,B0,1191,B1,1271,B2,1351,B3:DATA1431,B4,1511,B5,1591,B6,1671,B7,1751,B8,1831,B9,1107,A0,1187,A1
  554. 6588 DATA1267,A2,1347,A3,1427,A4,1507,A5,1587,A6,1667,A7,1747,A8,1827,A9:DATA1127,F0,1207,F1,1287,F2,1367,F3,1447,F4,1527,F5,1607,F6,1687,F7:DATA1767,F8,1847,F9
  555. 6800 PRINT"[147]":PRINT:PRINT:PRINT:PRINT:PRINT"          SHIP HAS BEEN SUNK":FORU=1TO800:NEXTU:GOTO500
  556. 6900 RETURN
  557. 7000 J1=J1+4000:HT=HT+3000:B2=B2+1:IFB2=4THENB2=0
  558. 7014 IFJ2=0ANDAAM<500ANDB2=2ANDJ1>1500THENJ2=1500:J1=J1-J2
  559. 7015 IFJ2=0THENGOTO7024
  560. 7016 IFJ2<6000ANDB2=2ANDJ1>7000THENJ2=J2+7000:J1=J1-7000
  561. 7024 IFJ3=0ANDMI1<500ANDB2=1ANDJ1>1500THENJ3=1500:J1=J1-J3
  562. 7025 IFJ3=0THENGOTO7034
  563. 7026 IFJ3<6000ANDB2=2ANDJ1>7000THENJ3=J3+7000:J1=J1-7000
  564. 7034 IFJ4=0ANDWMN<500ANDB2=3ANDJ1>1500THENJ4=1500:J1=J1-J4
  565. 7035 IFJ4=0THENGOTO7044
  566. 7036 IFJ4<6000ANDB2=1ANDJ1>7000THENJ4=J4+7000:J1=J1-7000
  567. 7044 IFJ5=0ANDSMN<500ANDB2=3ANDJ1>1500THENJ5=1500:J1=J1-J5
  568. 7045 IFJ5=0THENGOTO7054
  569. 7046 IFJ5<8000ANDB2=3ANDJ1>8000THENJ5=J5+8000:J1=J1-8000
  570. 7054 IFJ6=0ANDBM2<500ANDB2=3ANDJ1>1500THENJ6=1500:J1=J1-J6
  571. 7055 IFJ6=0THENGOTO7064
  572. 7056 IFJ6<8000ANDB2=4ANDJ1>8000THENJ6=J6+8000:J1=J1-8000
  573. 7064 IFJ7=0ANDPM1<500ANDB2=0ANDJ1>1500THENJ7=1500:J1=J1-J7
  574. 7065 IFJ7=0THENGOTO7074
  575. 7066 IFJ7<6000ANDB2=1ANDJ1>6000THENJ7=J7+6000:J1=J1-6000
  576. 7074 IFJ8=0ANDCHM<500ANDB2=0ANDJ1>1500THENJ8=1500:J1=J1-J8
  577. 7075 IFJ8=0THENGOTO7085
  578. 7076 IFJ8<6000ANDB2=1ANDJ1>6000THENJ8=J8+6000:J1=J1-6000
  579. 7085 Z=0:G1=0:G2=0:T1=0:T2=0:F1=0:A9=0:S1=0:IFAAM=0THENAPS=APS*.8:GOTO7124
  580. 7101 IFJ2=0THENGOTO7120
  581. 7102 IFAMO=0THENAMO=1
  582. 7103 IFAPS=0THENAPS=1
  583. 7104 UI=AAM/AMO:MS=AAM/APS:ZZ=1:V=1:X=1:IFJ2<AAMTHENY=AAM/J2:KZ=J2*.4:IFY>2.2THENGOTO7128
  584. 7106 IFAAM=J2THENKZ=AAM*.4
  585. 7107 IFAAM<J2THENY=J2/AAM:KZ=AAM*.4:IFY>2.2THENGOTO7129
  586. 7108 GOSUB800:GOSUB870:IFGB1=1123THENZZ=1
  587. 7110 IFGS2=1123THENZZ=1
  588. 7111 IFFT1=1123THENZZ=1.1
  589. 7113 IFHH1=1123THENZ=500
  590. 7116 AAM=X*AAM-KZ+Z:AAM=INT(AAM):J2=J2-KZ*ZZ*V:J2=INT(J2)
  591. 7120 APS=APS*.9:IFJ2>100ANDAAM>100THENAMO=AMO*.8
  592. 7123 IFJ2=0ANDAAM/APS>3THENAAM=AAM*.9:APS=APS*.9:AAM=INT(AAM):APS=INT(APS)
  593. 7124 IFAAM=0ANDJ2>1THENAPS=0:AMO=0
  594. 7125 APS=INT(APS):AMO=INT(AMO):IFJ2<0THENJ2=0
  595. 7126 IFAAM<0THENAAM=0:GOTO7130
  596. 7127 GOTO7130
  597. 7128 AAM=AAM-J2/2:J2=0:AAM=INT(AAM):GOTO7130
  598. 7129 J2=J2-AAM/2:AAM=0:J2=INT(J2):GOTO7130
  599. 7130 IFMI1=0THENZS3=ZS3*.8:GOTO7154
  600. 7131 IFJ3=0THENGOTO7150
  601. 7132 IFA11=0THENA11=1
  602. 7133 IFZS3=0THENZS3=1
  603. 7134 UI=MI1/A11:MS=MI1/ZS3:ZZ=1:V=1:X=1:IFJ3<MIMTHENY=MI1/J3:KZ=J3*.4:IFY>2.2THENGOTO7158
  604. 7136 IFMI1=J3THENKZ=MI1*.4
  605. 7137 IFMI1<J3THENY=J3/MI1:KZ=MI1*.4:IFY>2.2THENGOTO7159
  606. 7138 GOSUB800:GOSUB870:IFGB1=1523THENZZ=1
  607. 7140 IFGS2=1523THENZZ=1
  608. 7141 IFFT1=1523THENZZ=1.1
  609. 7143 IFHH1=1523THENZ=500
  610. 7146 MI1=X*MI1-KZ+Z:MI1=INT(MI1):J3=J3-KZ*ZZ*V:J3=INT(J3)
  611. 7150 ZS3=ZS3*.9:IFJ3>100ANDMI1>100THENA11=A11*.8
  612. 7153 IFJ3=0ANDMI1/ZS3>3THENMI1=MI1*.9:ZS3=ZS3*.9:MI1=INT(MI1):ZS3=INT(ZS3)
  613. 7154 IFMI1=0ANDJ3>1THENZS3=0:A11=0
  614. 7155 ZS3=INT(ZS3):A11=INT(A11):IFJ3<0THENJ3=0
  615. 7156 IFMI1<0THENMI1=0:GOTO7160
  616. 7157 GOTO7160
  617. 7158 MI1=MI1-J3/2:J3=0:MI1=INT(MI1):GOTO7160
  618. 7159 J3=J3-MI1/2:MI1=0:J3=INT(J3)
  619. 7160 IFWMN=0THENWS1=WS1*.8:GOTO7184
  620. 7161 IFJ4=0THENGOTO7180
  621. 7162 IFWAM=0THENWAM=1
  622. 7163 IFWS1=0THENWS1=1
  623. 7164 UI=WMN/WAM:MS=WAM/WS1:ZZ=1:V=1:X=1:IFJ4<WMNTHENY=WMN/J4:KZ=J4*.4:IFY>2.2THENGOTO7188
  624. 7166 IFWMN=J4THENKZ=WMN*.4
  625. 7167 IFWMN<J4THENY=J4/WMN:KZ=WMN*.4:IFY>2.2THENGOTO7189
  626. 7168 GOSUB800:GOSUB870:IFGB1=1439THENZZ=1
  627. 7170 IFGS2=1439THENZZ=1
  628. 7171 IFFT1=1439THENZZ=1.1
  629. 7173 IFHH1=1439THENZ=500
  630. 7176 WMN=X*WMN-KZ+Z:WMN=INT(WMN):J4=J4-KZ*ZZ*V:J4=INT(J4)
  631. 7180 WS1=WS1*.9:IFJ4>100ANDWMN>100THENWAM=WAM*.8
  632. 7183 IFJ4=0ANDWMN/WS1>3THENWMN=WMN*.9:WS1=WS1*.9:WMN=INT(WMN):WS1=INT(WS1)
  633. 7184 IFWMN=0ANDJ4>1THENWS1=0:WAM=0
  634. 7185 WS1=INT(WS1):WAM=INT(WAM):IFJ4<0THENJ4=0
  635. 7186 IFWMN<0THENWMN=0:GOTO7190
  636. 7187 GOTO7190
  637. 7188 WMN=WMN-J4/2:J4=0:WMN=INT(WMN):GOTO7190
  638. 7189 J4=J4-WMN/2:WMN=0:J4=INT(J4):GOTO7190
  639. 7190 IFSMN=0THENP13=P13*.8:GOTO7214
  640. 7191 IFJ5=0THENGOTO7210
  641. 7192 IFSOA=0THENSOA=1
  642. 7193 IFP13=0THENP13=1
  643. 7194 UI=SMN/SOA:MS=SMN/P13:ZZ=1:V=1:X=1:IFJ5<WMNTHENY=SMN/J5:KZ=J5*.4:IFY>2.2THENGOTO7218
  644. 7196 IFSMN=J5THENKZ=SMN*.4
  645. 7197 IFSMN<J5THENY=J5/SMN:KZ=SMN*.4:IFY>2.2THENGOTO7219
  646. 7198 GOSUB800:GOSUB870:IFGB1=1679THENZZ=1
  647. 7200 IFGS2=1679THENZZ=1
  648. 7201 IFFT1=1679THENZZ=1.1
  649. 7203 IFHH1=1679THENZ=500
  650. 7206 SMN=X*SMN-KZ+Z:SMN=INT(SMN):J5=J5-KZ*ZZ*V:J5=INT(J5)
  651. 7210 P13=P13*.9:IFJ5>100ANDSMN>100THENSOA=SOA*.8
  652. 7213 IFJ5=0ANDSMN/P13>3THENSMN=SMN*.9:P13=P13*.9:SMN=INT(SMN):P13=INT(P13)
  653. 7214 IFSMN=0ANDJ5>1THENP13=0:SOA=0
  654. 7215 P13=INT(P13):SOA=INT(SOA):IFJ5<0THENJ5=0
  655. 7216 IFSMN<0THENSMN=0:GOTO7220
  656. 7217 GOTO7220
  657. 7218 SMN=SMN-J5/2:J5=0:SMN=INT(SMN):GOTO7220
  658. 7219 J5=J5-SMN/2:SMN=0:J5=INT(J5)
  659. 7220 IFBM2=0THENBS6=BS6*.8:GOTO7244
  660. 7221 IFJ6=0THENGOTO7240
  661. 7222 IFB02=0THENB02=1
  662. 7223 IFBS6=0THENBS6=1
  663. 7224 UI=BM2/B02:MS=BM2/BS6:ZZ=1:V=1:X=1:IFJ6<BM2THENY=BM2/J6:KZ=J6*.4:IFY>2.2THENGOTO7248
  664. 7226 IFBM2=J6THENKZ=BM2*.4
  665. 7227 IFBM2<J6THENY=J6/BM2:KZ=BM2*.4:IFY>2.2THENGOTO7249
  666. 7228 GOSUB800:GOSUB870:IFGB1=1835THENZZ=1
  667. 7230 IFGS2=1835THENZZ=1
  668. 7231 IFFT1=1835THENZZ=1.1
  669. 7233 IFHH1=1835THENZ=500
  670. 7236 BM2=X*BM2-KZ+Z:BM2=INT(BM2):J6=J6-KZ*ZZ*V:J6=INT(J6)
  671. 7240 BS6=BS6*.9:IFJ6>100ANDBM2>100THENB02=B02*.8
  672. 7243 IFJ6=0ANDBM2/BS6>3THENBM2=BM2*.9:BS6=BS6*.9:BM2=INT(BM2):BS6=INT(BS6)
  673. 7244 IFBM2=0ANDJ6>1THENBS6=0:B02=0
  674. 7245 BS6=INT(BS6):B02=INT(B02):IFJ6<0THENJ6=0
  675. 7246 IFBM2<0THENBM2=0:GOTO7250
  676. 7247 GOTO7250
  677. 7248 BM2=BM2-J6/2:J6=0:BM2=INT(BM2):GOTO7250
  678. 7249 J6=J6-BM2/2:BM2=0:J6=INT(J6)
  679. 7250 IFPM1=0THENPS4=PS4*.8:GOTO7274
  680. 7251 IFJ7=0THENGOTO7270
  681. 7252 IFPI2=0THENPI2=1
  682. 7253 IFPS4=0THENPS4=1
  683. 7254 UI=PM1/PI2:MS=PM1/PS4:ZZ=1:V=1:X=1:IFJ7<PM1THENY=PM1/J7:KZ=J7*.4:IFY>2.2THENGOTO7278
  684. 7256 IFPM1=J7THENKZ=PM1*.4
  685. 7257 IFPM1<J7THENY=J7/PM1:KZ=PM1*.4:IFY>2.2THENGOTO7279
  686. 7258 GOSUB800:GOSUB870:IFGB1=1511THENZZ=1
  687. 7260 IFGS2=1511THENZZ=1
  688. 7261 IFFT1=1511THENZZ=1.1
  689. 7263 IFHH1=1511THENZ=500
  690. 7266 PM1=X*PM1-KZ+Z:PM1=INT(PM1):J7=J7-KZ*ZZ*V:J7=INT(J7)
  691. 7270 PS4=PS4*.9:IFJ7>100ANDPM1>100THENPI2=PI2*.8
  692. 7273 IFJ7=0ANDPM1/PS4>3THENPM1=PM1*.9:PS4=PS4*.9:PM1=INT(PM1):PS4=INT(PS4)
  693. 7274 IFPM1=0ANDJ7>1THENPS4=0:PI2=0
  694. 7275 PS4=INT(PS4):PI2=INT(PI2):IFJ7<0THENJ7=0
  695. 7276 IFPM1<0THENPM1=0:GOTO7280
  696. 7277 GOTO7280
  697. 7278 PM1=PM1-J7/2:J7=0:PM1=INT(PM1):GOTO7280
  698. 7279 J7=J7-PM1/2:PM1=0:J7=INT(J7)
  699. 7280 IFCHM=0THENCS3=CS3*.8:GOTO7304
  700. 7281 IFJ8=0THENGOTO7300
  701. 7282 IFCA1=0THENCA1=1
  702. 7283 IFCS3=0THENCS3=1
  703. 7284 UI=PM1/CA1:MS=CHM/CS3:ZZ=1:V=1:X=1:IFJ8<CHMTHENY=CHM/J8:KZ=J8*.4:IFY>2.2THENGOTO7308
  704. 7286 IFCHM=J8THENKZ=CHM*.4
  705. 7287 IFCHM<J8THENY=J8/CHM:KZ=CHM*.4:IFY>2.2THENGOTO7309
  706. 7288 GOSUB800:GOSUB870:IFGB1=1427THENZZ=1
  707. 7290 IFGS2=1427THENZZ=1
  708. 7291 IFFT1=1427THENZZ=1.1
  709. 7293 IFHH1=1427THENZ=500
  710. 7296 CHM=X*CHM-KZ+Z:CHM=INT(CHM):J8=J8-KZ*ZZ*V:J8=INT(J8)
  711. 7300 CS3=CS3*.9:IFJ8>100ANDCHM>100THENCA1=CA1*.8
  712. 7303 IFJ8=0ANDCHM/CS3>3THENCHM=CHM*.9:CS3=CS3*.9:CHM=INT(CHM):CS3=INT(CS3)
  713. 7304 IFCHM=0ANDJ8>1THENCA1=0:CS3=0
  714. 7305 CS3=INT(CS3):CA1=INT(CA1):IFJ8<0THENJ8=0
  715. 7306 IFCHM<0THENCHM=0:GOTO7310
  716. 7307 GOTO7310
  717. 7308 CHM=CHM-J8/2:J8=0:CHM=INT(CHM):GOTO7310
  718. 7309 J8=J8-CHM/2:CHM=0:J8=INT(J8):GOTO7310
  719. 7310 IFJMN=0THENJG5=JG5*.8:GOTO7329
  720. 7311 IFJ1=0THENGOTO7339
  721. 7312 IFJD0=0THENJD0=1
  722. 7313 IFJG5=0THENJG5=1
  723. 7314 UI=JMN/JD0:MS=JMN/JG5:ZZ=1:V=1:X=1:IFJ1<JMNTHENY=JMN/J1:KZ=J1*.4:IFY>2.2THENGOTO7333
  724. 7316 IFJMN=J1THENKZ=JMN*.4
  725. 7317 IFJMN<J1THENY=J1/JMN:KZ=JMN*.4:IFY>2.2THENGOTO7334
  726. 7318 GOSUB800:GOSUB870:IFGB1=1271THENZZ=1
  727. 7320 IFGS2=1271THENZZ=1
  728. 7321 IFFT1=1271THENZZ=1.1
  729. 7322 IFHH1=1271THENZ=500
  730. 7323 JMN=X*JMN-KZ+Z:JMN=INT(JMN):J1=J1-KZ*ZZ*V:J1=INT(J1):JG5=JG5*.9:IFJ1>100ANDJMN>100THENJD0=JD0*.8
  731. 7328 IFJ1=0ANDJMN/JG5>3THENJMN=JMN*.9:JG5=JG5*.9:JMN=INT(JMN):JG5=INT(JG5)
  732. 7329 IFJMN=0ANDJ1>1THENJG5=0:JD0=0
  733. 7330 JG5=INT(JG5):JD0=INT(JD0):IFJ1<0THENJ1=0
  734. 7331 IFJMN<0THENJMN=0:GOTO7339
  735. 7332 GOTO7339
  736. 7333 JMN=JMN-J1/2:J1=0:JMN=INT(JMN):GOTO7339
  737. 7334 J1=J1-JMN/2:JMN=0:J1=INT(J1):GOTO7339
  738. 7339 HH1=INT(20*RND(1))+1:IFHH1=1THENGOSUB10040:KK1=KK1-U:GOTO7400
  739. 7341 IFHH1=2THENGOSUB10040:II6=II6-U:GOTO7400
  740. 7342 IFHH1=3THENGOSUB10040:NL9=NL9-U:GOTO7400
  741. 7343 IFHH1=5THENGOSUB10040:RR0=RR0-U:GOTO7400
  742. 7344 IFHH1=7THENGOSUB10040:V2=V2-U:GOTO7400
  743. 7345 IFHH1=8THENHH1=1123
  744. 7346 IFHH1=10THENHH1=1439
  745. 7347 IFHH1=13THENHH1=1835
  746. 7348 IFHH1=12THENHH1=1511
  747. 7349 IFHH1=6THENU=INT(3*RND(1))+1:UU4=UU4-U:GOTO7400
  748. 7350 IFHH1=11THENHH1=1427
  749. 7351 IFHH1=9THENHH1=1523
  750. 7352 IFHH1=4THENU=INT(3*RND(1))+1:FH7=FH7-U:GOTO7400
  751. 7353 IFHH1=15THENHH1=1679
  752. 7355 GOTO500
  753. 7400 PRINT"[147]":POKE53281,2:POKE53280,2:PRINT:PRINT"[155]":PRINT:PRINT:PRINT"           A SHIP WAS HIT ":FORU=1TO800:NEXTU:GOTO500
  754. 7870 PRINT"                                CARGO":IFKK1<0THENGOTO7874
  755. 7873 PRINT"GB1  GUNBOAT 1        "
  756. 7874 IFII6<0THENGOTO7876
  757. 7875 PRINT"GS2  GUNBOAT 2        "
  758. 7876 IFRR0<0THENGOTO7878
  759. 7877 PRINT"[158]TT1  TROOP[160]TRANS.1    ",TM1
  760. 7878 IFUU4<0THENGOTO7882
  761. 7879 PRINT"TS2  TROOP[160]TRANS.2    ",MEN
  762. 7882 IFFH7<0THENGOTO7884
  763. 7883 PRINT"[156]SS1  SUPPLY SHIP 1    ",SN1
  764. 7884 IFNL9<0THENGOTO7886
  765. 7885 PRINT"AS1  AMMO   SHIP 2    ",SA2
  766. 7886 IFV2<0THENGOTO7888
  767. 7887 PRINT"[144]FT1  AIRCRAFT CARRIER ",FAA
  768. 7888 PRINT:PRINT"[144]    M[146]ENU  L[146]OAD  U[146]NLOAD":RETURN
  769. 8000 G1=G1+1:GB1=GB1-80:IFGB1<1089THENGB1=GB1+80:GOTO5000
  770. 8020 GC1=GC1-80:GOSUB1300:GOTO5000
  771. 8031 F1=F1+1:FT1=FT1-80:IFFT1<1089THENFT1=FT1+80:GOTO5000
  772. 8034 FC1=FC1-80:GOSUB1300:GOTO5000
  773. 8040 G2=G2+1:GS2=GS2-80:IFGS2<1089THENGS2=GS2+80:GOTO5000
  774. 8060 GC2=GC2-80:GOSUB1300:GOTO5000
  775. 8080 S1=S1+1:SS1=SS1-80:IFSS1<1089THENSS1=SS1+80:GOTO5000
  776. 8100 SC1=SC1-80:GOSUB1300:GOTO5000
  777. 8120 A9=A9+1:AS1=AS1-80:IFAS1<1089THENAS1=AS1+80:GOTO5000
  778. 8140 AC1=AC1-80:GOSUB1300:GOTO5000
  779. 8160 T1=T1+1:TT1=TT1-80:IFTT1<1089THENTT1=TT1+80:GOTO5000
  780. 8180 K3=K3-80:GOSUB1300:GOTO5000
  781. 8200 T2=T2+1:TS2=TS2-80:IFTS2<1089THENTS2=TS2+80:GOTO5000
  782. 8220 TC2=TC2-80:GOSUB1300:GOTO5000
  783. 8300 G1=G1+1:IFGB1=1139THENGOTO5000
  784. 8311 IFGB1=1219THENGOTO5000
  785. 8312 IFGB1=1299THENGOTO5000
  786. 8315 IFGB1=1379THENGOTO5000
  787. 8316 IFGB1=1459THENGOTO5000
  788. 8317 IFGB1=1539THENGOTO5000
  789. 8318 IFGB1=1859THENGOTO5000
  790. 8320 IFGB1=1619THENGOTO5000
  791. 8321 IFGB1=1699THENGOTO5000
  792. 8322 IFGB1=1779THENGOTO5000
  793. 8323 GB1=GB1+4:GC1=GC1+4:GOSUB1300:GOTO5000
  794. 8325 F1=F1+1:IFFT1=1139THENGOTO5000
  795. 8327 IFFT1=1219THENGOTO5000
  796. 8328 IFFT1=1299THENGOTO5000
  797. 8329 IFFT1=1379THENGOTO5000
  798. 8330 IFFT1=1459THENGOTO5000
  799. 8331 IFFT1=1539THENGOTO5000
  800. 8332 IFFT1=1619THENGOTO5000
  801. 8333 IFFT1=1699THENGOTO5000
  802. 8334 IFFT1=1779THENGOTO5000
  803. 8335 IFFT1=1859THENGOTO5000
  804. 8336 FT1=FT1+4:FC1=FC1+4:GOSUB1300:GOTO5000
  805. 8340 G2=G2+1:IFGS2=1139THENGOTO5000
  806. 8351 IFGS2=1219THENGOTO5000
  807. 8352 IFGS2=1299THENGOTO5000
  808. 8355 IFGS2=1379THENGOTO5000
  809. 8356 IFGS2=1459THENGOTO5000
  810. 8357 IFGS2=1539THENGOTO5000
  811. 8360 IFGS2=1619THENGOTO5000
  812. 8361 IFGS2=1699THENGOTO5000
  813. 8362 IFGS2=1779THENGOTO5000
  814. 8365 IFGS2=1859THENGOTO5000
  815. 8370 GS2=GS2+4:GC2=GC2+4:GOSUB1300:GOTO5000
  816. 8380 S1=S1+1:IFSS1=1139THENGOTO5000
  817. 8391 IFSS1=1219THENGOTO5000
  818. 8392 IFSS1=1299THENGOTO5000
  819. 8395 IFSS1=1379THENGOTO5000
  820. 8396 IFSS1=1459THENGOTO5000
  821. 8397 IFSS1=1539THENGOTO5000
  822. 8410 IFSS1=1619THENGOTO5000
  823. 8411 IFSS1=1699THENGOTO5000
  824. 8412 IFSS1=1779THENGOTO5000
  825. 8415 IFSS1=1859THENGOTO5000
  826. 8419 SS1=SS1+4:SC1=SC1+4:GOSUB1300:GOTO5000
  827. 8420 A9=A9+1:IFAS1=1139THENGOTO5000
  828. 8431 IFAS1=1219THENGOTO5000
  829. 8432 IFAS1=1299THENGOTO5000
  830. 8435 IFAS1=1379THENGOTO5000
  831. 8436 IFAS1=1459THENGOTO5000
  832. 8437 IFAS1=1539THENGOTO5000
  833. 8440 IFAS1=1619THENGOTO5000
  834. 8441 IFAS1=1699THENGOTO5000
  835. 8442 IFAS1=1779THENGOTO5000
  836. 8445 IFAS1=1859THENGOTO5000
  837. 8450 AS1=AS1+4:AC1=AC1+4:GOSUB1300:GOTO5000
  838. 8460 T1=T1+1:IFTT1=1139THENGOTO5000
  839. 8471 IFTT1=1219THENGOTO5000
  840. 8472 IFTT1=1299THENGOTO5000
  841. 8475 IFTT1=1379THENGOTO5000
  842. 8476 IFTT1=1459THENGOTO5000
  843. 8477 IFTT1=1539THENGOTO5000
  844. 8480 IFTT1=1619THENGOTO5000
  845. 8481 IFTT1=1699THENGOTO5000
  846. 8482 IFTT1=1779THENGOTO5000
  847. 8485 IFTT1=1859THENGOTO5000
  848. 8490 TT1=TT1+4:K3=K3+4:GOSUB1300:GOTO5000
  849. 8500 T2=T2+1:IFTS2=1139THENGOTO5000
  850. 8511 IFTS2=1219THENGOTO5000
  851. 8512 IFTS2=1299THENGOTO5000
  852. 8515 IFTS2=1379THENGOTO5000
  853. 8516 IFTS2=1459THENGOTO5000
  854. 8517 IFTS2=1539THENGOTO5000
  855. 8520 IFTS2=1619THENGOTO5000
  856. 8521 IFTS2=1699THENGOTO5000
  857. 8522 IFTS2=1779THENGOTO5000
  858. 8525 IFTS2=1859THENGOTO5000
  859. 8530 TS2=TS2+4:TC2=TC2+4:GOSUB1300:GOTO5000
  860. 8600 G1=G1+1:GB1=GB1+80:IFGB1>1875THENGB1=GB1-80:GOTO5000
  861. 8620 GC1=GC1+80:GOSUB1300:GOTO5000
  862. 8631 F1=F1+1:FT1=FT1+80:IFFT1>1875THENFT1=FT1-80:GOTO5000
  863. 8634 FC1=FC1+80:GOSUB1300:GOTO5000
  864. 8640 G2=G2+1:GS2=GS2+80:IFGS2>1875THENGS2=GS2-80:GOTO5000
  865. 8660 GC2=GC2+80:GOSUB1300:GOTO5000
  866. 8680 S1=S1+1:SS1=SS1+80:IFSS1>1875THENSS1=SS1-80:GOTO5000
  867. 8700 SC1=SC1+80:GOSUB1300:GOTO5000
  868. 8720 A9=A9+1:AS1=AS1+80:AC1=AC1+80:IFAS1>1875THENAS1=AS1-80:GOTO5000
  869. 8750 GOSUB1300:GOTO5000
  870. 8760 T1=T1+1:TT1=TT1+80:IFTT1>1875THENTT1=TT1-80:GOTO5000
  871. 8780 K3=K3+80:GOSUB1300:GOTO5000
  872. 8800 T2=T2+1:TS2=TS2+80:IFTS2>1875THENTS2=TS2-80:GOTO5000
  873. 8820 TC2=TC2+80:GOSUB1300:GOTO5000
  874. 8900 G1=G1+1:IFGB1=1107THENGOTO5000
  875. 8911 IFGB1=1187THENGOTO5000
  876. 8912 IFGB1=1267THENGOTO5000
  877. 8915 IFGB1=1347THENGOTO5000
  878. 8916 IFGB1=1427THENGOTO5000
  879. 8917 IFGB1=1507THENGOTO5000
  880. 8920 IFGB1=1587THENGOTO5000
  881. 8921 IFGB1=1667THENGOTO5000
  882. 8922 IFGB1=1747THENGOTO5000
  883. 8925 IFGB1=1827THENGOTO5000
  884. 8926 GB1=GB1-4:GC1=GC1-4:GOSUB1300:GOTO5000
  885. 8927 F1=F1+1:IFFT1=1107THENGOTO5000
  886. 8929 IFFT1=1187THENGOTO5000
  887. 8930 IFFT1=1267THENGOTO5000
  888. 8931 IFFT1=1347THENGOTO5000
  889. 8932 IFFT1=1427THENGOTO5000
  890. 8933 IFFT1=1507THENGOTO5000
  891. 8934 IFFT1=1587THENGOTO5000
  892. 8935 IFFT1=1667THENGOTO5000
  893. 8936 IFFT1=1747THENGOTO5000
  894. 8937 IFFT1=1827THENGOTO5000
  895. 8938 FT1=FT1-4:FC1=FC1-4:GOSUB1300:GOTO5000
  896. 8940 G2=G2+1:IFGS2=1107THENGOTO5000
  897. 8951 IFGS2=1187THENGOTO5000
  898. 8952 IFGS2=1267THENGOTO5000
  899. 8955 IFGS2=1347THENGOTO5000
  900. 8956 IFGS2=1427THENGOTO5000
  901. 8957 IFGS2=1507THENGOTO5000
  902. 8960 IFGS2=1587THENGOTO5000
  903. 8961 IFGS2=1667THENGOTO5000
  904. 8962 IFGS2=1747THENGOTO5000
  905. 8965 IFGS2=1827THENGOTO5000
  906. 8970 GS2=GS2-4:GC2=GC2-4:GOSUB1300:GOTO5000
  907. 8980 ::S1=S1+1:IFSS1=1107THENGOTO5000
  908. 8991 IFSS1=1187THENGOTO5000
  909. 8992 IFSS1=1267THENGOTO5000
  910. 8995 IFSS1=1347THENGOTO5000
  911. 8996 IFSS1=1427THENGOTO5000
  912. 8997 IFSS1=1507THENGOTO5000
  913. 9000 IFSS1=1587THENGOTO5000
  914. 9001 IFSS1=1667THENGOTO5000
  915. 9002 IFSS1=1747THENGOTO5000
  916. 9005 IFSS1=1827THENGOTO5000
  917. 9010 SS1=SS1-4:SC1=SC1-4:GOSUB1300:GOTO5000
  918. 9020 A9=A9+1:IFAS1=1107THENGOTO5000
  919. 9031 IFAS1=1187THENGOTO5000
  920. 9032 IFAS1=1267THENGOTO5000
  921. 9035 IFAS1=1347THENGOTO5000
  922. 9036 IFAS1=1427THENGOTO5000
  923. 9037 IFAS1=1507THENGOTO5000
  924. 9040 IFAS1=1587THENGOTO5000
  925. 9041 IFAS1=1667THENGOTO5000
  926. 9042 IFAS1=1747THENGOTO5000
  927. 9045 IFAS1=1827THENGOTO5000
  928. 9050 AS1=AS1-4:AC1=AC1-4:GOSUB1300:GOTO5000
  929. 9060 T1=T1+1:IFTT1=1107THENGOTO5000
  930. 9071 IFTT1=1187THENGOTO5000
  931. 9072 IFTT1=1267THENGOTO5000
  932. 9075 IFTT1=1347THENGOTO5000
  933. 9076 IFTT1=1427THENGOTO5000
  934. 9077 IFTT1=1507THENGOTO5000
  935. 9080 IFTT1=1587THENGOTO5000
  936. 9081 IFTT1=1667THENGOTO5000
  937. 9082 IFTT1=1747THENGOTO5000
  938. 9085 IFTT1=1827THENGOTO5000
  939. 9090 TT1=TT1-4:K3=K3-4:GOSUB1300:GOTO5000
  940. 9100 ::T2=T2+1:IFTS2=1107THENGOTO5000
  941. 9111 IFTS2=1187THENGOTO5000
  942. 9112 IFTS2=1267THENGOTO5000
  943. 9115 IFTS2=1347THENGOTO5000
  944. 9116 IFTS2=1427THENGOTO5000
  945. 9117 IFTS2=1507THENGOTO5000
  946. 9120 IFTS2=1587THENGOTO5000
  947. 9121 IFTS2=1667THENGOTO5000
  948. 9122 IFTS2=1747THENGOTO5000
  949. 9125 IFTS2=1827THENGOTO5000
  950. 9130 TS2=TS2-4:TC2=TC2-4:GOSUB1300:GOTO5000
  951. 9200 PRINT"   ENTER SHIP ID":PRINT"[158]       TT1":PRINT"       TS2":PRINT"[144]       FT1":RETURN
  952. 9250 IFAS1<>112(null)(null)3(null)3(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)3(null)(null)(null)(null)(null)(null)/(null)(null)3(null)3(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null).(null)(null)6(null)(null)(null)(null)(null)(null)(null)3(null)(null)(null)(null)(null)(null)/(null)(null)6(null)f(null)(null)(null)(null)3(null)(null)(null)(null)(null)(null)'(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)6(null)(null)(null)g(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)0000
  953. 9262 GOTO2800
  954. 9263 IFE>SA2THENGOTO2800
  955. 9264 AMO=AMO+E:SA2=SA2-E:GOTO2800
  956. 9270 IFAS1<>1523THENPRINT:PRINT"      SHIPS NOT IN PORT":GOTO2800
  957. 9271 PRINT:PRINT"      # AMMO ",SA2:INPUTE:IFQ$="U"THENGOTO9282
  958. 9274 IFE>A11THENGOTO2800
  959. 9276 A11=A11-E:SA2=SA2+E:IFSA2>20000THENSA2=20000
  960. 9280 GOTO2800
  961. 9282 IFE>SA2THENGOTO2800
  962. 9283 A11=A11+E:SAS=SA2-E:GOTO2800
  963. 9290 IFAS1<>1439THENPRINT:PRINT"      SHIPS NOT IN PORT":GOTO2600
  964. 9291 PRINT:PRINT"      # AMMO ",SA2:INPUTE:IFQ$="U"THENGOTO9301
  965. 9294 IFE>WAMTHENGOTO2600
  966. 9296 WAM=WAM-E:SA2=SA2+E:IFSA2>20000THENSA2=20000
  967. 9300 GOTO2600
  968. 9301 IFE>SA2THENGOTO2600
  969. 9302 WAM=WAM+E:SA2=SA2-E:GOTO2600
  970. 9308 IFAS1<>1679THENPRINT:PRINT"      SHIPS NOT IN PORT":GOTO4200
  971. 9309 PRINT:PRINT"      # AMMO ",SA2:INPUTE:IFQ$="U"THENGOTO9321
  972. 9314 IFE>SOATHENGOTO4200
  973. 9316 SOA=SOA-E:SA2=SA2+E:IFSA2>20000THENSA2=20000
  974. 9320 GOTO4200
  975. 9321 IFE>SA2THENGOTO4200
  976. 9322 SOA=SOA+E:SA2=SA2-E:GOTO4200
  977. 9328 IFAS1<>1835THENPRINT:PRINT"      SHIPS NOT IN PORT":GOTO2400
  978. 9329 PRINT:PRINT"      # AMMO ",SA2:INPUTE:IFQ$="U"THENGOTO9341
  979. 9334 IFE>B02THENGOTO2400
  980. 9336 B02=B02-E:SA2=SA2+E:IFSA2>20000THENSA2=20000
  981. 9340 GOTO2400
  982. 9341 IFE>SA2THENGOTO2400
  983. 9342 B02=B02+E:SA2=SA2-E:GOTO2400
  984. 9350 IFSS1<>1123THENPRINT:PRINT"      SHIPS NOT IN PORT":GOTO2800
  985. 9351 PRINT:PRINT"      # SUPPLIES",SN1:INPUTE:IFQ$="U"THENGOTO9364
  986. 9357 APS=APS-E:SN1=SN1+E:IFE>APSTHENGOTO2800
  987. 9360 IFSN1>30000THENSN1=30000
  988. 9362 GOTO2800
  989. 9364 IFE>SN1THENGOTO2800
  990. 9365 APS=APS+E:SN1=SN1-E:GOTO2800
  991. 9370 IFSS1<>1523THENPRINT:PRINT"      SHIPS NOT IN PORT":GOTO2800
  992. 9371 PRINT:PRINT"      # SUPPLIES",SN1:INPUTE:IFQ$="U"THENGOTO9384
  993. 9374 IFE>ZS3THENGOTO2800
  994. 9377 ZS3=ZS3-E:SN1=SN1+E:IFSN1>30000THENSN1=30000
  995. 9382 GOTO2800
  996. 9384 IFE>SN1THENGOTO2800
  997. 9385 ZS3=ZS3+E:SN1=SN1-E:GOTO2800
  998. 9390 IFSS1<>1439THENPRINT:PRINT"      SHIPS NOT IN PORT":GOTO2600
  999. 9391 PRINT:PRINT"      # SUPPLIES",SN1:INPUTE:IFQ$="U"THENGOTO9403
  1000. 9394 IFE>WS1THENGOTO2600
  1001. 9397 WS1=WS1-E:SN1=SN1+E:IFSN1>30000THENSN1=30000
  1002. 9402 GOTO2600
  1003. 9403 IFE>SN1THENGOTO2600
  1004. 9405 WS1=WS1+E:SN1=SN1-E:GOTO2600
  1005. 9410 IFSS1<>1679THENPRINT:PRINT"      SHIPS NOT IN PORT":GOTO4200
  1006. 9411 PRINT:PRINT"      # SUPPLIES",SN1:INPUTE:IFQ$="U"THENGOTO9423
  1007. 9414 IFE>P13THENGOTO4200
  1008. 9417 P13=P13-E:SN1=SN1+E:IFSN1>30000THENSN1=30000
  1009. 9422 GOTO4200
  1010. 9423 IFE>SN1THENGOTO4200
  1011. 9425 P13=P13+E:SN1=SN1-E:GOTO4200
  1012. 9430 IFSS1<>1835THENPRINT:PRINT"      SHIPS NOT IN PORT":GOTO2400
  1013. 9431 PRINT:PRINT"      # SUPPLIES",SN1:INPUTE:IFQ$="U"THENGOTO9443
  1014. 9434 IFE>BS6THENGOTO2400
  1015. 9437 BS6=BS6-E:SN1=SN1+E:IFSN1>30000THENSN1=30000
  1016. 9442 GOTO2400
  1017. 9443 IFE>SN1THENGOTO2400
  1018. 9445 BS6=BS6+E:SN1=SN1-E:GOTO2400
  1019. 9450 IFSS1<>1511THENPRINT:PRINT"      SHIPS NOT IN PORT":GOTO2200
  1020. 9451 PRINT:PRINT"      # SUPPLIES",SN1:INPUTE:IFQ$="U"THENGOTO9463
  1021. 9454 IFE>PS4THENGOTO2200
  1022. 9457 PS4=PS4-E:SN1=SN1+E:IFSN1>30000THENSN1=30000
  1023. 9462 GOTO2200
  1024. 9463 IFE>SN1THENGOTO2200
  1025. 9465 PS4=PS4+E:SN1=SN1-E:GOTO2200
  1026. 9470 IFSS1<>1427THENPRINT:PRINT"      SHIPS NOT IN PORT":GOTO2000
  1027. 9471 PRINT:PRINT"      # SUPPLIES",SN1:INPUTE:IFQ$="U"THENGOTO9483
  1028. 9474 IFE>CS3THENGOTO2000
  1029. 9477 CS3=CS3-E:SN1=SN1+E:IFSN1>30000THENSN1=30000
  1030. 9482 GOTO2000
  1031. 9483 IFE>SN1THENGOTO2000
  1032. 9485 CS3=CS3+E:SN1=SN1-E:GOTO2000
  1033. 9570 IFSS1<>1271THENPRINT:PRINT"      SHIPS NOT IN PORT":GOTO1800
  1034. 9571 PRINT:PRINT"      # SUPPLIES",SN1:INPUTE:IFQ$="U"THENGOTO9583
  1035. 9574 IFE>JG5THENGOTO1800
  1036. 9577 JG5=JG5-E:SN1=SN1+E:IFSN1>30000THENSN1=30000
  1037. 9582 GOTO1800
  1038. 9583 IFE>SN1THENGOTO1800
  1039. 9585 JG5=JG5+E:SN1=SN1-E:GOTO1800
  1040. 9628 IFAS1<>1511THENPRINT:PRINT"      SHIPS NOT IN PORT":GOTO2200
  1041. 9629 PRINT:PRINT"      # AMMO ",SA2:INPUTE:IFQ$="U"THENGOTO9641
  1042. 9634 IFE>PI2THENGOTO2200
  1043. 9636 PI2=PI2-E:SA2=SA2+E:IFSA2>20000THENSA2=20000
  1044. 9640 GOTO2200
  1045. 9641 IFE>SA2THENGOTO2200
  1046. 9642 PI2=PI2+E:SA2=SA2-E:GOTO2200
  1047. 9648 IFAS1<>1427THENPRINT:PRINT"      SHIPS NOT IN PORT":GOTO2000
  1048. 9649 PRINT:PRINT"      # AMMO ",SA2:INPUTE:IFQ$="U"THENGOTO9661
  1049. 9654 IFE>CA1THENGOTO2000
  1050. 9656 CA1=CA1-E:SA2=SA2+E:IFSA2>20000THENSA2=20000
  1051. 9659 E=0:GOTO2000
  1052. 9661 IFE>SA2THENGOTO2000
  1053. 9662 CA1=CA1+E:SA2=SA2-E:GOTO2000
  1054. 9748 IFAS1<>1271THENPRINT:PRINT"      SHIPS NOT IN PORT":GOTO1800
  1055. 9749 PRINT:PRINT"      # AMMO "SA2:INPUTE:IFQ$="U"THENGOTO9761
  1056. 9754 IFE>JD0THENGOTO1800
  1057. 9756 JD0=JD0-E:SA2=SA2+E:IFSA2>20000THENSA2=20000
  1058. 9760 GOTO1800
  1059. 9761 IFE>SA2THENGOTO1800
  1060. 9762 JD0=JD0+E:SA2=SA2-E:GOTO1800
  1061. 10000 PRINT:PRINT:PRINT"          NOTHING IN THE AREA":FORZ=1TO800:NEXTZ:RETURN
  1062. 10040 U=INT(4*RND(1))+1:RETURN
  1063.